﻿Public Class Feuerkrafttabelle160
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Return 160
    End Function
End Class
Public Class FeuerkrafttabelleTeureEinheiten
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        If ObjektLadeklasse.GetEinheitenkosten(Name) >= 16000 Then
            Return 130
        Else
            Return 90
        End If
    End Function
End Class
Public Class FeuerkrafttabelleTeureEinheitenDeffensive
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        If ObjektLadeklasse.GetEinheitenkosten(Name) >= 16000 Then
            Return 120
        Else
            Return 100
        End If
    End Function
End Class